home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / networking / 1094 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  2.9 KB
  1. Path: bignews.cycor.ca!usenet
  2. From: dgrant@dgrant.peinet.pe.ca (Dennis Grant)
  3. Newsgroups: comp.sys.amiga.networking
  4. Subject: Re: Reading Web pages with AREXX
  5. Date: 4 Feb 1996 20:24:40 GMT
  6. Organization: Private Internet Connection
  7. Distribution: world
  8. Message-ID: <4f34m8$et6@storm.cycor.ca>
  9. References: <4eoduk$cmi@storm.cycor.ca> <ehb.01om@draco.prima.ruhr.de>
  10. NNTP-Posting-Host: dgrant.peinet.pe.ca
  11. Mime-Version: 1.0
  12. Content-Type: text/plain; charset=iso-8859-1
  13. Content-Transfer-Encoding: 8bit
  14. X-NewsSoftware: GRn 2.1 Feb 19, 1994
  15.  
  16. In article <ehb.01om@draco.prima.ruhr.de> ehb@draco.prima.ruhr.de (Edwin H. Bielawski) writes:
  17. > In article <4eoduk$cmi@storm.cycor.ca> dgrant@peinet.pe.ca (Dennis Grant) writes:
  18. > >I had a nifty idea, but I need some help with it.
  19. > >
  20. > >I need an AREXX function that takes a URL as an input, and returns the text
  21. > >of that web page.
  22. > 
  23. > Have a look to http://Snark.apana.org.au/james/GetURL/
  24.  
  25.  
  26. I did, and it works! So now I have a little AREXX cron job that pulls the
  27. current prices of my mutual funds down from the web, and tells me how much
  28. money I made. :)
  29.  
  30. Here's the source -
  31.  
  32. /*Money.rexx*/
  33. /*A program to calculate the value of mutual funds*/
  34.  
  35. ADDRESS COMMAND
  36.  
  37. 'rx geturl.rexx http://www.trimark.com/Trimark/html/fundsdetail.html -output t:trimark'
  38.  
  39. 'grep HREF="159.html" t:trimark >t:america'
  40. nil = Open('america','t:america',READ)
  41. buffer = READLN('america')
  42. acm = RIGHT(buffer,4)
  43. total = acm * 561.994
  44. nil = Close('america')
  45. 'delete t:america >NIL:'
  46.  
  47. 'grep HREF="157.html" t:trimark > t:SelBal'
  48. nil = Open('selbal','t:selbal',READ)
  49. buffer = READLN('selbal')
  50. acm = RIGHT(buffer,4)
  51. grandtotal = total
  52. total = acm * 379.465
  53. grandtotal = grandtotal + total
  54. nil = Close('selbal')
  55. 'delete t:selbal >NIL:'
  56.  
  57. 'grep HREF="158.html" t:trimark > t:SelGth'
  58. nil = Open('selgth','t:selgth',READ)
  59. buffer = READLN('selgth')
  60. acm = RIGHT(buffer,4)
  61. total = acm * 1734.698
  62. grandtotal = grandtotal + total
  63. nil = Close('selgth')
  64. 'delete t:selgth >NIL:'
  65. 'delete t:trimark >NIL:'
  66.  
  67. 'rx geturl.rexx http://www.cifunds.com/prices.html -output t:ci'
  68. 'grep "Latin American Fund" t:ci >t:latin'
  69. nil = Open('latin','t:latin',READ)
  70. buffer = READLN('latin')
  71. acm = RIGHT(buffer,4)
  72. total = acm * 445.633
  73. grandtotal = grandtotal + total
  74. nil = Close('latin')
  75. 'delete t:ci >NIL:'
  76. 'delete t:latin >NIL:'
  77.  
  78. 'rx geturl.rexx http://www.agf.com/fundinfo/prices/cdnpri.html -output t:agf'
  79. 'grep "ASIAN GROWTH" t:agf >t:asgth'
  80. nil = Open('asgth','t:asgth',READ)
  81. buffer = READLN('asgth')
  82. tacm = LEFT(buffer,128)
  83. acm = RIGHT(tacm,5)
  84. total = acm * 533.480
  85. grandtotal = grandtotal + total
  86. SAY 'The value today is: $' grandtotal
  87. nil = Close('asgth')
  88. 'delete t:agf >NIL:'
  89. 'delete t:asgth >NIL:'
  90.  
  91. nil = OPEN('out','down:fundsgraph',APPEND)
  92. nil = WRITELN('out',grandtotal)
  93. nil = Close('out')
  94.  
  95. 'delete t:header#? >:NIL'
  96. 'delete t:prune#? >NIL:'
  97.  
  98.  
  99.  
  100. -- 
  101. --------------------------
  102. Dennis Grant
  103. dgrant@cycor.ca
  104. http://www.cycor.ca/TCave/
  105.